within MediaDevel;

package Test "Library of media property models"
  extends Modelica.Icons.Library;

  model OM_test
    extends _ThermodynamicState;
    Pressure p;
    ExtraProperty e;
    Choices.StateVars vv= Choices.StateVars.ph;
  equation
    p = 9;
    if vv == Choices.StateVars.pT then
      e = 1;
    else
      e = 7;
    end if;
  end OM_test;

  model MM_test
    AbsolutePressure p;
    ExtraProperty e;
  equation
    p = 9;
    e = 7;
  end MM_test;

end Test;

